home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / powerd.lha / powerd_ppc / RndQ.ass < prev    next >
Encoding:
Text File  |  1980-12-27  |  184 b   |  16 lines
  1.  
  2. # RndQ(seed:r3:LONG)(LONG)
  3.  
  4.     .text
  5.     .global    _RndQ
  6.  
  7. _RndQ:    add.    r3,r3,r3
  8.     bgt    .finish
  9.     xori    r3,r3,0x2b41
  10.     xoris    r3,r3,0x1d87
  11. .finish:    blr
  12.  
  13.     .type    _RndQ,@function
  14.     .size    _RndQ,$-_RndQ
  15.  
  16.